! This file is part of PanGu. All rights reserved.
module pangu_statement
contains

    !> 导语, pre-start
    pure function pre_start(application, version, text)
        character(len=*), intent(in) :: application  !! 程序名
        character(len=*), intent(in) :: version      !! 版本号
        character(len=*), intent(in) :: text         !! 文本
        character(:), allocatable :: pre_start

        pre_start = text//', '//application//' v'//version

    end function pre_start

    !> 结束语, post-end
    pure function post_end(application, res_dir)
        character(len=*), intent(in) :: application  !! 程序名
        character(len=*), intent(in) :: res_dir      !! 结果路径
        character(:), allocatable :: post_end

        post_end = 'All done. Thank you for using '//application//'! '//&
             'Results are saved in "'//res_dir//'" folder.'

    end function post_end

end module pangu_statement
